# Sofia Marques Silva

## Exerccios Aula 5

### Exerccios - Editando alguns parmetros grficos

#### 1

esaligna<- read.csv("esaligna.csv",sep=",",as.is=TRUE)
head(esaligna)
str(esaligna)

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)")

#### 2

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5)

#### 3 

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l")

#### 4

plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l",main="Ttulo Informativo")

#### 5

par(cex=1.2)
plot(esaligna$dap~esaligna$ht,xlab="Altura(m)",ylab="D.A.P.(cm)"
,tcl=0.5,bty="l",main="Ttulo Informativo")



### Exerccios - Dois Grficos Juntos

#### 1 e 2 

par(mar=c(5.1,4.1,2.1,2.1),mfrow=c(1,2))
boxplot(dap~as.factor(talhao),data=esaligna,xlab="Talhao",ylab="DAP",
ylim=c(0,25))
mtext("a)", side=3, line=1,cex=0.7,adj=1) 
mtext("a)DAP em funo do talho.", side=1, line=4,adj=0,cex=0.7)

esaligna$talhao<-as.factor(esaligna$talhao)
str(esaligna)

plot(tapply(esaligna$dap,list(esaligna$talhao),mean),
xlab="Talhao",
ylab="Mdia DAP", ylim=c(0.0,25.0),pch=19,xaxt="n")
segments( 
x=c(1:6),
y0=((tapply(esaligna$dap,list(esaligna$talhao),mean))-
(tapply(esaligna$dap,list(esaligna$talhao),sd))),
x1=c(1:6), 
y1=((tapply(esaligna$dap,list(esaligna$talhao),mean))+
(tapply(esaligna$dap,list(esaligna$talhao),sd))))
axis(side=1, at=c(1:6), labels=c(levels(esaligna$talhao)))
mtext("b)", side=3, line=1,cex=0.7,adj=1) 
mtext("b)Mdia e desvio padro de DAP.", side=1, line=4,adj=0,cex=0.7)



### Exerccios - Adivinhando o cdigo


exercicio3<- read.csv("exercicio3.csv",sep=",",dec=".",as.is=TRUE)
class(exercicio3)
str(exercicio3)

# x1= Log Patch sizes (ha)
# y1= Euclidian distances
# x2= Euclidian distances
# y2= Patches

exercicio3$y2<-factor(exercicio3$y2, labels=c("Small","Medium\n Edge", 
"Medium\n Interior", "Large\n Edge", "Large\n Interior", "Control"))

par(mar=c(3,4,2,1),mfrow=c(1,2),bty="l")

plot(y1~x1,data=exercicio3, xlim=c(0.5,2.2),ylim=c(0.0,3.0), xlab="Log(Patch size)(ha)", ylab="Euclidean distances",
tcl=0.5,pch=24,bg="black")
mtext("a", side=3, line=1,adj=1,cex=1) 
rlinear<-lm(exercicio3$y1~exercicio3$x1)
abline(rlinear,lwd=2)


boxplot(x2~y2,data=exercicio3,ylim=c(0.0,3.0),outline=FALSE,cex.axis=0.7)
text(x=c(1:5),y=3.0,c("*","*","**","*","***"))
mtext("b", side=3, line=1,adj=1,cex=1)



#### FIM ####



